home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 February / Software of the Month Club 1996 February.iso / pc / dos / dtp / mmm / example9.bat < prev    next >
Encoding:
DOS Batch File  |  1996-01-08  |  1.1 KB  |  50 lines
  1. @echo off
  2. REM This is a example you can use for a simple slide show.
  3. :SLIDE1
  4. show-pcx blue.pcx spiral r
  5. GTEXT "Page 1" 0 1 8
  6. GTEXT "  This is a TEMPLET for a slide show." 12 1 8 200
  7. GTEXT "Press C to Continue * Press Q to Quit" 24 1 8
  8. KEY cq
  9. IF ERRORLEVEL 2 GOTO QUIT
  10. IF ERRORLEVEL 1 GOTO SLIDE2
  11.  
  12. :SLIDE2
  13. clear blue.pcx spiral
  14. show-pcx red.pcx weave
  15. GTEXT "Page 2" 0 1 8
  16. GTEXT "C = Continue * P = Previous * Q = Quit" 24 1 8
  17. KEY cpq
  18. IF ERRORLEVEL 3 GOTO QUIT
  19. IF ERRORLEVEL 2 GOTO SLIDE1
  20. IF ERRORLEVEL 1 GOTO SLIDE3
  21.  
  22. :SLIDE3
  23. clear red.pcx weave
  24. show-pcx yellow.pcx crush
  25. GTEXT "Page 3" 0 1 8
  26. GTEXT "Press C to Continue" 22 1 8
  27. GTEXT "Press P for Previous slide" 23 1 8
  28. GTEXT "Press Q to Quit" 24 1 8
  29. KEY cpq
  30. IF ERRORLEVEL 3 GOTO QUIT
  31. IF ERRORLEVEL 2 GOTO SLIDE2
  32. IF ERRORLEVEL 1 GOTO SLIDE4
  33.  
  34. :SLIDE4
  35. clear yellow.pcx crush
  36. show-pcx blue.pcx explode
  37. GTEXT "Page 4" 0 1 8
  38. GTEXT "Press C to Continue" 22 1 8
  39. GTEXT "Press P for Previous slide" 23 1 8
  40. GTEXT "Press Q to Quit" 24 1 8
  41. KEY cpq
  42. IF ERRORLEVEL 3 GOTO QUIT
  43. IF ERRORLEVEL 2 GOTO SLIDE3
  44. IF ERRORLEVEL 1 GOTO SLIDE5
  45.  
  46. :SLIDE5
  47. :QUIT
  48. clear blue.pcx fade
  49. textmode
  50. cls